home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-19
/
ansi1.zip
/
ANSI.LSP
< prev
next >
Wrap
Text File
|
1991-09-06
|
356b
|
13 lines
(vmon)
(defun C:ANSI ()
(prompt "ANSI.LSP Version 1.0 by Graham Company")
(terpri)
(setvar "cmdecho" 0)
(graphscr)
(command "layer" "m" "DIM" "c" "green" "")
(setq INPT (getpoint "\nPick insertion point "))
(setq TOL (getstring "\nEnter tolerance: "))
(setq DAT (getstring "\nEnter datum: "))
(menucmd "i=ansi")(menucmd "i=*")
)